﻿Imports System.Collections.Generic
Imports System.Linq
Imports System.Text
Imports System.Configuration
Imports System.Data
Imports System.Data.SqlClient
Public Class NegRemito

    Dim m_nroCli As Integer

    Public Property nroCli() As Integer
        Get
            Return m_nroCli
        End Get
        Set(ByVal value As Integer)
            m_nroCli = value
        End Set
    End Property

    Public Function calcularSubtotalPedido(ByVal valor As Double, ByVal candtidad As Double) As Double
        Dim total As Double = 0
        total = valor * candtidad
        Return total
    End Function
End Class
